home *** CD-ROM | disk | FTP | other *** search
/ Shareware Grab Bag / Shareware Grab Bag.iso / 005 / product.arc / MACRO66.LSP < prev    next >
Encoding:
Text File  |  1986-09-23  |  979 b   |  29 lines
  1. (Defun C:SR ()
  2.        (Setvar "Cmdecho" 0)
  3.        (Setq B (If (null B) "" B))
  4.        (Setq C (If (null C) 1.0 C))
  5.        (Setq P1 (Getpoint "\nFirst point: "))
  6.        (Setq P2 (Getpoint "\nSecond point: "))
  7.        (Setq A1 (Angle P1 P2))
  8.        (Setq A (Getint "\nNumber of items: "))
  9.        (Prompt "\nBlock name <") (Prompt B)
  10.        (Setq BT (Getstring ">: "))
  11.        (Setq B (If (null BT) B BT))
  12.        (Prompt "\nScale factor <")
  13.        (Prompt (Rtos C (Getvar "Lunits") (Getvar "Luprec")))
  14.        (Setq CT (Getreal ">: "))
  15.        (Setq C (If (null CT) C CT))
  16.        (Setq D (Getstring "\nRotate item <N>: "))
  17.        (Setq D (If (= D "y") "Y" "N"))
  18.        (If (= D "Y")
  19.            (Setq D (* (/ 180 Pi) A1))
  20.            (Setq D 0)
  21.        )
  22.        (Setq E (Distance P1 P2)) (Setq E (/ E A))
  23.        (Setq P1 (Polar P1 A1 (* E 0.5)))
  24.        (Repeat A
  25.                (Command "Insert" B P1 C "" D)
  26.                (Setq P1 (Polar P1 A1 E))
  27.        )
  28. )
  29.